Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/clpsib/clipsib.frm

Text File | 1995-05-08 | 31KB | 877 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00E0E0E0&
   Caption         =   "Run This Program As An EXE File For Best Results"
   ClientHeight    =   5460
   ClientLeft      =   855
   ClientTop       =   1500
   ClientWidth     =   7845
   Height          =   5865
   Left            =   795
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   364
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   523
   Top             =   1155
   Width           =   7965
   Begin ListBox ShoppingList
      BackColor       =   &H00FFFF00&
      Height          =   1785
      Left            =   360
      TabIndex        =   8
      Top             =   3240
      Width           =   1455
   End
   Begin PictureBox FindPic
      BackColor       =   &H00C0C0C0&
      Height          =   1695
      Left            =   3720
      ScaleHeight     =   111
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   239
      TabIndex        =   13
      Top             =   3120
      Visible         =   0   'False
      Width           =   3615
      Begin CommandButton Command2
         Caption         =   "Cancel"
         Height          =   375
         Left            =   2760
         TabIndex        =   17
         Top             =   1200
         Width           =   735
      End
      Begin CommandButton Command1
         Caption         =   "OK"
         Height          =   375
         Left            =   1920
         TabIndex        =   16
         Top             =   1200
         Width           =   735
      End
      Begin CheckBox Check2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Whole Word"
         Height          =   375
         Left            =   240
         TabIndex        =   21
         Top             =   1200
         Width           =   1575
      End
      Begin CheckBox Check1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Case Sensitive"
         Height          =   375
         Left            =   240
         TabIndex        =   19
         Top             =   840
         Width           =   1575
      End
      Begin TextBox FindTextBox
         Height          =   285
         Left            =   1020
         TabIndex        =   14
         Top             =   345
         Width           =   2385
      End
      Begin PictureBox FindTitle
         BackColor       =   &H009A6049&
         Height          =   255
         Left            =   -15
         ScaleHeight     =   15
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   239
         TabIndex        =   15
         Top             =   -15
         Width           =   3615
      End
      Begin Label Label3
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Find What:"
         Height          =   255
         Left            =   0
         TabIndex        =   18
         Top             =   390
         Width           =   975
      End
   End
   Begin PictureBox PyramidPic
      AutoSize        =   -1  'True
      Height          =   495
      Index           =   2
      Left            =   4080
      ScaleHeight     =   31
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   39
      TabIndex        =   12
      Top             =   1680
      Visible         =   0   'False
      Width           =   615
   End
   Begin ListBox MeatList
      Height          =   1590
      Left            =   360
      Sorted          =   -1  'True
      TabIndex        =   4
      Top             =   1200
      Visible         =   0   'False
      Width           =   1455
   End
   Begin PictureBox PyramidPic
      AutoSize        =   -1  'True
      Height          =   495
      Index           =   1
      Left            =   4080
      ScaleHeight     =   31
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   39
      TabIndex        =   11
      Top             =   960
      Visible         =   0   'False
      Width           =   615
   End
   Begin ListBox VegList
      Height          =   1590
      Left            =   720
      Sorted          =   -1  'True
      TabIndex        =   5
      Top             =   960
      Visible         =   0   'False
      Width           =   1455
   End
   Begin ListBox FruitList
      Height          =   1590
      Left            =   1080
      Sorted          =   -1  'True
      TabIndex        =   6
      Top             =   720
      Visible         =   0   'False
      Width           =   1455
   End
   Begin ListBox PastryList
      Height          =   1590
      Left            =   1440
      Sorted          =   -1  'True
      TabIndex        =   7
      Top             =   480
      Visible         =   0   'False
      Width           =   1455
   End
   Begin PictureBox WindowPic
      BackColor       =   &H00808080&
      Height          =   2655
      Left            =   4800
      ScaleHeight     =   175
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   167
      TabIndex        =   0
      Top             =   240
      Width           =   2535
      Begin CommandButton ChessHelpCmdBut
         Caption         =   "Help"
         Height          =   375
         Left            =   960
         TabIndex        =   2
         Top             =   2160
         Visible         =   0   'False
         Width           =   735
      End
      Begin PictureBox ChessPic
         AutoSize        =   -1  'True
         Height          =   615
         Left            =   0
         ScaleHeight     =   39
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   55
         TabIndex        =   1
         Top             =   0
         Visible         =   0   'False
         Width           =   855
      End
   End
   Begin PictureBox PyramidPic
      AutoSize        =   -1  'True
      Height          =   495
      Index           =   0
      Left            =   4080
      ScaleHeight     =   31
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   39
      TabIndex        =   3
      Top             =   240
      Visible         =   0   'False
      Width           =   615
   End
   Begin Label Label4
      Alignment       =   2  'Center
      BackColor       =   &H000000FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Drag FIND Box Around By Its Title Bar"
      Height          =   255
      Left            =   3720
      TabIndex        =   20
      Top             =   4920
      Width           =   3615
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Shopping List"
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   3000
      Width           =   1455
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackColor       =   &H000000FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Use Lists To Build A Shopping List"
      Height          =   255
      Left            =   120
      TabIndex        =   10
      Top             =   120
      Width           =   3375
   End
End
'=========================================================
'                  CLPSIB.BAS Rev. 1.0
'              Keith Funk (CIS 72240, 2020)
'                     Nov. 3, 1991
'
'   Many thanks to Daniel Appleman (Desaware) for explaining
'   the Win3 WS_CLIPSIBLINGS style without which this program
'   could not have been written. I'd also like to thank
'   Ted Young and Jonathan Zuk for the help they have given
'   me in learning the Win3 API.
'
'   The purpose of the program is to demonstrate how to
'   implement overlapping controls in a VB program.
'
'   NOTE that the Form and all controls have their S